home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / AD.MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  45 lines
  1. 10  REM  AD.MENU
  2. 11  REM <CTRL-M><CTRL-M>READ NEXT PAL ADDED BY CHAD ADAMS<CTRL-M>APRIL 19,1983<CTRL-M><CTRL-M>
  3. 15  DIM A$(10):D$ =  CHR$(4)
  4. 16 X = 0
  5. 17  IF  PEEK(X) < >20  OR  PEEK(X +2) >9  OR  PEEK(X +1) < >40  THEN  POKE X,20: POKE X +1,40: POKE X +2,1: POKE X +3,1
  6. 18 NP =  PEEK(X +2):NF =  PEEK(X +3)
  7. 19  GOSUB 4000
  8. 20  TEXT : HOME : SPEED= 255
  9. 30  HTAB 14: INVERSE : PRINT " AD.MENU ";: NORMAL : PRINT "  PAGE ";NP
  10. 1000 I = 0
  11. 1010 I = I +1: IF I >9 GOTO 1200
  12. 1020  READ A$(I): IF A$(I) = "END" GOTO 1200
  13. 1030  PRINT : HTAB 01: PRINT I;" = ";A$(I): GOTO 1010
  14. 1200  VTAB 22: INVERSE : PRINT "G=GOBACK  S=START OVER                "
  15. 1210  IF A$(I) < >"END"  THEN  HTAB 25: VTAB 22: PRINT "M=MORE ";
  16. 1211  HTAB 1
  17. 1212  VTAB 23: PRINT "N=READ NEXT AD  ("NP","NF")       ";: HTAB 22: PRINT "                 ";
  18. 1220  NORMAL : VTAB 21: HTAB 1: GET R$: PRINT R$
  19. 1225  IF R$ = "M"  AND A$(I) < >"END"  THEN NP = NP +1:NF = 1: GOTO 20
  20. 1230  IF R$ = "S"  THEN  RESTORE :NP = 1:NF = 1: GOTO 20
  21. 1240  IF R$ = "G"  THEN  POKE X,0: POKE X +1,0: PRINT D$"RUN SOFT.ADS"
  22. 1242  IF R$ = "N"  THEN 2010
  23. 1250 R =  INT( VAL(R$)): IF R >0  AND R <I  THEN NF = R: GOSUB 3000: PRINT D$"RUN AD.";A$(R)
  24. 1260  GOTO 1200
  25. 2000  REM  NEXT
  26. 2010  RESTORE :N = NF +(9 *NP) -9
  27. 2020  FOR I = 1 TO N: READ R$: NEXT 
  28. 2030  IF R$ = "END"  THEN R$ = "G": GOTO 1240
  29. 2040  GOSUB 3000
  30. 2060  PRINT D$"RUN AD.";R$
  31. 3000 NF = NF +1: IF NF >9  THEN NF = 1:NP = NP +1
  32. 3010  POKE X +2,NP: POKE X +3,NF: RETURN 
  33. 4000 K = 9 *(NP -1): IF K = 0  THEN  RETURN 
  34. 4010  FOR L = 1 TO K: READ Z$: NEXT 
  35. 4020  RETURN 
  36. 5000  REM  
  37. 5010  DATA "GOLDEN.WEST"
  38. 5020  DATA "HAYSTACK"
  39. 5030  DATA "NEW.SON"
  40. 5040  DATA "SCREEN.MASTER"
  41. 5050  DATA "ST.ELMO"
  42. 5060  DATA "DISKAZINE"
  43. 5070  DATA "MUSIC DISK"
  44. 5080  DATA "Q & D DISK"
  45. 9999  DATA "END"